home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 3 / DOS077A.dsk / BINADR CREATE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  423b  |  9 lines
  1. 10  PRINT "<CTRL-D>OPEN BINADR"
  2. 20  PRINT "<CTRL-D>WRITE BINADR"
  3. 30  REM  A = START, L = LENGTH (DECIMAL)
  4. 40  PRINT "A=PEEK(-21902)+PEEK(-21901)*256"
  5. 50  PRINT "L=PEEK(-21920)+PEEK(-21919)*256"
  6. 60  PRINT "PRINT CHR$ (83); CHR$ (84); CHR$ (65); CHR$ (82); CHR$ (84); CHR$ (61); CHR$ (32);A"
  7. 70  PRINT "PRINT CHR$(76);CHR$(69);CHR$(78);CHR$(71);CHR$(84);CHR$(72);CHR$(61);CHR$(32);L"
  8. 80  PRINT "<CTRL-D>CLOSE BINADR"
  9. 90  END